home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
M-More Monthly Disks
/
(c)md.d64
/
100meterloader.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
682b
|
23 lines
0 POKE53281,2:POKE53280,2:PRINT "[158]";
5 IF F=0 THEN F=1:LOAD"100 METER.ML",8,1
10 REM RACE INSTRUCTIONS
14 PRINT CHR$(14)
20 PRINT "[147] 100 [205][197][212][197][210] [196][193][211][200]"
25 PRINT " BY [196]EAN [208]ERRY"
30 PRINT " [212]HE TOP RUNNER USES THE '1' AND '2'"
40 PRINT "ALTERNATELY TO RUN. [212]HE BOTTOM PLAYER"
50 PRINT "IS CONTROLLED BY THE ',' AND '.' KEYS."
60 PRINT " [212]HE FIRST PERSON TO THE FINISH LINE"
70 PRINT "IS THE [215][201][206][206][197][210]. [203]EEP TRACK OF YOUR TIMES"
80 PRINT "TO MEASURE YOUR IMPROVEMENT."
90 PRINT " [200][193][214][197][160][198][213][206]!!!"
95 PRINT "[200]IT [210][197][212][213][210][206][146] TO START."
96 GET A$:IF A$<>CHR$(13) THEN 96
100 PRINT CHR$(142);:SYS 49152
110 PRINT CHR$(14);
120 PRINT "[147] [193]NOTHER GAME? ";
130 GET A$:IF A$<>"N" AND A$<>"Y" THEN 130
140 PRINT A$:IF A$="Y" THEN 100
150 SYS 64738
160 END